10 IFX>.THEN100
20 POKE53280,1:POKE53281,1
30 PRINTCHR$(142)"[147] GATHERING THE PIECES TO THE PUZZLE..."
100 IFX=0THENX=1:LOAD"TEXT.3.O",8,1
120 IFX=1THENX=2:LOAD"RAM.LNK",8,1
130 IFX=2THENX=3:LOAD"UNPACKER",8,1
140 IFX=3THENX=4:LOAD"HAND.SPR",8,1
150 :
160 NI=42 : REM NUMBER OF ITEMS 6*7
170 NA=6  : REM NUMBER ACROSS
180 ND=6  : REM NUMBER DOWN-1
182 V=53248:REM VIC
190 :
200 POKE249,224:POKE250,204:DIMA%(NI)
210 SYS51459:POKE53280,2: REM SHOW SCREEN
220 POKE828,0:POKE829,39:POKE830,0:POKE831,24:SYS49152:SYS49158,22
230 :
235 POKEV+21,0
240 SYS49161,"[208][201][195][203] [217][207][213][210] [205][207][196][197]",13,5,0
250 SYS49161,"--------------",13,6,0
260 SYS49161,"1 ==> [215][201][206][206][197][210]",12,8,0
270 SYS49161,"2 ==> [201][206][212][197][210][205][197][196][201][193][212][197]",12,10,0
275 SYS49161,"3 ==> [204][207][211][197][210]",12,12,0
280 SYS49161,"4 ==> [210][197][212][213][210][206] [212][207] [204][207][193][196][211][212][193][210]",12,14,0
290 POKE198,0:WAIT198,1:GETMO$:MO=VAL(MO$):IFMO>=1ANDMO<=4THEN320
300 SYS49167,1000,33,15,15:FORDL=1TO1000:NEXT
310 SYS49167,1000,32,0,0:GOTO290
320 POKE828,1:POKE829,38:POKE830,1:POKE831,23:SYS49152:SYS49158,1
330 IFMO=1THENFORX=1TONI:A%(X)=X:NEXT:CF=1:GOTO510
340 IFMO=4THEN1020
350 GOSUB 1680
355 GOSUB 4000 : REM SHOW PICTURE
360 :
370 SYS49161,"[208][210][197][211][211] '[200]' [198][207][210] [200][197][204][208]",11,23,1
372 SYS49161,"[208][201][216][197][204] [208][213][218][218][204][197][210]",13,1,1
380 :
390 :
400 :
410 CF=0
420 POKE1016+52224,24:POKEV+39,5:POKEV,60:POKEV+1,68
430 POKEV+29,0:POKEV+23,0:POKEV+16,0
440 POKEV+21,1
450 :
460 IFGIP=1THEN510
470 FORX=1TONI:A%(X)=X:NEXT
480 FORX=1TONI:R1=RND(1)*NI+1:R2=RND(1)*NI+1:T=A%(R1):A%(R1)=A%(R2)
490 A%(R2)=T:NEXT
495 RO=0:CO=1
500 :
510 GOSUB 3300 : REM PLOT THEM PUPPIES
600 :
610 FL=0
620 FORX=0TONI-1
630 IFA%(X+1)<>X+1THENFL=1
640 IFA%(X+1)=NITHENBL=X
650 NEXT
660 :
670 IFCF=1THEN1530
680 IFFL=0THENSYS49161,"               [217][207][213] [215][207][206]!!             ",1,0,0:GOTO1450
690 J=56320
700 GOSUB 1080
710 A=CO+RO*NA
720 BR=INT(BL/NA):BC=BL-NA*BR:BC=BC+1
730 IFMO=2ANDA%(A)<>NITHEN1600 : REM PLOP IT
740 IF(BR<>ROANDBC<>CO)ORA%(A)=NITHEN970
750 IFBR<>ROTHEN870
760 IF BC>COTHENB=BC:E=CO+1:I=-1
770 IF BC<COTHENB=BC:E=CO-1:I=1
780 FORX=BTOESTEPI
790 T=RO*NA+X:F=RO*NA+X+I
800 A%(T)=A%(F)
810 POKE254,2+RO*3:POKE253,X*5:POKE255,A%(T)-1:SYS51462
820 POKE254,2+RO*3:POKE253,(X+I)*5:POKE255,NI-1:SYS51462
830 NEXT
840 AG=3.34:A%(RO*NA+X)=NI
850 GOTO 610
860 :
870 IFBC<>COTHEN960
880 IFBR>ROTHENB=BR:E=RO+1:I=-1
890 IFBR<ROTHENB=BR:E=RO-1:I=1
900 FORX=BTOESTEPI
910 T=X*NA+CO:F=(X+I)*NA+CO:A%(T)=A%(F)
920 POKE253,CO*5:POKE254,2+X*3:POKE255,A%(T)-1:SYS51462
930 POKE253,CO*5:POKE254,2+(X+I)*3:POKE255,NI-1:SYS51462
940 AG=3.34:NEXT
950 A%(X*NA+CO)=NI:GOTO610
960 :
970 SYS49161,"            [201][204][204][197][199][193][204] [205][207][214][197]            ",1,0,0:SYS49167,1000,33,15,15
980 FORDL=1TO500:NEXT:SYS49167,0,32,0,0
990 SYS49161,"            ",13,0,0
1000 GOTO 700
1010 :
1020 POKEV+21,0:POKEV+16,0:PRINT"[147]":SYS51459
1030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1040 IFER<>63THENEND
1050 LOAD"HELLO CONNECT",8
1060 END
1070 :
1080 REM READ KEYBOARD AND JOYSTICK
1090 IFPEEK(198)=0ANDPEEK(J)=127THEN1090
1100 GETA$:JS=PEEK(J):IFJS=111ORA$=CHR$(13)THENRETURN
1110 CF=0:IFA$="W"THENFORX=1TONI:A%(X)=X:NEXT:CF=1:GOTO510
1115 IFA$="H"THENGOSUB3000:SYS49161,"[208][210][197][211][211] '[200]' [198][207][210] [200][197][204][208]",11,23,1:GOTO510
1120 IFA$="M"THENGOSUB1320:GOTO1090
1130 IFA$="S"THENGOSUB1980:GOTO1090
1135 IFA$="V"THENPOKEV+21,.:GOSUB4000:POKEV+21,1:GOTO1090
1140 IFA$=""ORJS=119THENCO=CO+1
1150 IFA$="[157]"ORJS=123THENCO=CO-1
1160 IFA$=""ORJS=125THENRO=RO+1
1170 IFA$="[145]"ORJS=126THENRO=RO-1
1180 IFJS=118THENCO=CO+1:RO=RO-1
1190 IFJS=117THENCO=CO+1:RO=RO+1
1200 IFJS=121THENCO=CO-1:RO=RO+1
1210 IFJS=122THENCO=CO-1:RO=RO-1
1220 :
1230 IFCO<1THENCO=1
1240 IFRO<0THENRO=0
1250 IFRO>NDTHENRO=ND
1260 IFCO>NATHENCO=NA
1270 :
1280 POKEV,21+CO*39:POKEV+1,68+RO*24:POKEV+16,0
1290 GOTO1090
1300 :
1310 :
1320 REM  QUIT
1330 SYS49161,"   [196][207] [217][207][213] [215][193][206][212] [212][207] [209][213][201][212] [212][200][201][211] [208][213][218][218][204][197]?   ",1,0,0
1340 FORX=1TO100:IFPEEK(198)=0THENNEXTX
1350 IFPEEK(198)<>0THEN1410
1360 SYS49161,"                                   ",4,0,0
1370 FORY=1TO100:IFPEEK(198)=0THENNEXTY
1380 IFPEEK(198)<>0THEN1410
1390 GOTO1330
1400 :
1410 GETA$
1420 IFA$<>"Y"THENSYS49161,"                                ",4,0,0:RETURN
1430 :
1440 GOTO220
1445 :
1450 REM WIN
1460 POKE253,NA*5:POKE254,2+ND*3:POKE255,NI:SYS51462:AG=3.34
1470 FORX=1000TO20000STEP500:SYS49167,X,33,15,15:NEXT
1480 FORX=1000TO20000STEP500:SYS49167,X,33,15,15:NEXT
1490 FORX=1000TO20000STEP500:SYS49167,X,33,15,15:NEXT
1500 SYS49167,0,32,0,0
1510 FORDL=1TO100:NEXTDL
1520 :
1530 POKE253,NA*5:POKE254,2+ND*3:POKE255,NI:SYS51462:AG=3.34
1540 SYS49161,"      [196][207] [217][207][213] [215][193][206][212] [212][207] [208][204][193][217] [193][199][193][201][206]?   ",1,0,0
1550 POKE198,0:WAIT198,1
1560 GETA$:IFA$="Y"THEN220
1570 IFA$<>"N"THEN1550
1580 GOTO1020
1590 :
1600 REM PLOP IT
1610 IFA%(A)=NITHEN870
1620 T=A%(A):A%(A)=A%(BL+1):A%(BL+1)=T
1630 POKE254,2+RO*3:POKE253,CO*5
1640 POKE255,NI-1:SYS51462:AG=3.34
1650 POKE254,2+BR*3:POKE253,BC*5
1660 POKE255,T-1:SYS51462:AG=3.34
1670 GOTO610
1680 REM  GAME IN PROGRESS
1690 GIP=0:POKEV+21,0
1700 SYS49161,"[215][207][213][204][196] [217][207][213] [204][201][203][197] [212][207] [204][207][193][196] [193]",10,10,0
1710 SYS49161,"[199][193][205][197] [201][206] [208][210][207][199][210][197][211][211]?",10,12,0
1720 POKE198,0:WAIT198,1:GETA$:IFA$<>"Y"THEN1790
1730 :
1740 F$="PP.GIP"
1750 GIP=1
1760 OPEN2,8,2,F$
1770 FORX=1TONI:INPUT#2,A%(X):NEXT
1780 CLOSE2
1790 POKEV+21,1:RETURN
1970 :
1980 REM SAVE GIP
1990 REM
2000 SYS49161,"      [211][193][214][201][206][199] [199][193][205][197] [201][206] [208][210][207][199][210][197][211][211]...      ",1,1,0
2010 OPEN15,8,15,"I0":PRINT#15,"S0:PP.GIP":CLOSE15
2020 :
2030 F$="0:PP.GIP,S,W"
2040 OPEN2,8,2,F$
2050 FORX=1TONI
2060 PRINT#2,A%(X)
2070 NEXT
2080 CLOSE2
2090 SYS49161,"                                     ",1,1,0
2092 SYS49161,"[208][201][216][197][204] [208][213][218][218][204][197][210]",13,1,1
2100 RETURN
3000 REM HELP
3010 POKEV+21,0
3015 POKE828,1:POKE829,38:POKE830,1:POKE831,23:SYS49152:SYS49158,1
3020 SYS49161,"[208][201][216][197][204] [208][213][218][218][204][197][210]",13,3,0
3030 SYS49161,"[212][207] [205][207][214][197] [212][200][197] [200][193][206][196], [213][211][197] [212][200][197] [195][213][210][211][207][210]",4,5,0
3040 SYS49161,"[203][197][217][211] [207][210] [212][200][197] [202][207][217][211][212][201][195][203] ([201][206] [208][207][210][212] 2).",2,6,0
3050 SYS49161,"[215][200][197][206] [212][200][197] [200][193][206][196] [201][211] [207][206] [212][200][197] [208][201][197][195][197]",4,8,0
3060 SYS49161,"[217][207][213] [215][201][211][200] [212][207] [205][207][214][197], [208][210][197][211][211] [210][197][212][213][210][206] [207][210]",2,9,0
3062 SYS49161,"[212][200][197] [198][201][210][197][194][213][212][212][207][206].",2,10,0
3080 SYS49161,"[212][207] [211][193][214][197] [193] [199][193][205][197], [208][210][197][211][211] '[211]'",2,12,0
3090 SYS49161,"[212][207] [199][197][212] [212][207] [212][200][197] [205][197][206][213], [208][210][197][211][211] '[205]'",2,14,0
3092 SYS49161,"[212][207] [214][201][197][215] [212][200][197] [197][206][212][201][210][197] [208][201][195][212][213][210][197], [208][210][197][211][211] '[214]'",2,16,0
3094 SYS49161,"[208][210][197][211][211] [193] [203][197][217] [212][207] [195][207][206][212][201][206][213][197].",7,21,0
3095 :
3100 :
3102 POKEV+21,0
3110 POKE198,0:WAIT198,1:POKE198,0:POKEV+21,1
3120 POKE828,1:POKE829,38:POKE830,1:POKE831,23:SYS49152:SYS49158,1
3125 POKE828,1:POKE829,38:POKE830,1:POKE831,23
3130 RETURN
3200 :
3300 REM  PLOT THE SHAPES
3310 XP=1:YP=-1:FL=0
3320 FORX=0TONI-1
3330 IFA%(X+1)<>X+1THENFL=1
3340 IFINT(X/NA)=X/NATHENYP=YP+3:XP=1
3350 POKE251,0:POKE252,64
3360 POKE253,XP*5:POKE254,YP:POKE255,A%(X+1)-1
3370 SYS51462:AG=3.34
3380 XP=XP+1
3390 NEXT
3395 RETURN
3397 :
4000 REM VIEW ENTIRE PICTURE
4002 IFVE=1THENVF=1:GOTO4020
4005 IFVE=0THENVE=1
4010 :
4012 SYS49173,1024,999,1
4014 SYS49173,8192,7999,0
4015 FORX=1TONI:POKE828+X,A%(X):A%(X)=X:NEXT:A%(NI)=NI+1
4016 POKE249,32:POKE250,4
4017 GOSUB 3300 : REM PLOT EM
4020 POKE249,32:POKE250,4:SYS52098
4025 IFVF<>1THENFORX=1TONI:A%(X)=PEEK(828+X):NEXT
4030 FORDL=1TO700:IFPEEK(198)=0THENNEXT
4040 POKE828,1:POKE829,38:POKE830,1:POKE831,23
4050 POKE249,224:POKE250,204
4060 SYS52098:POKE198,0
4070 RETURN
4080 :